home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / gjr / cmplrtst.lha / klexpr.scm < prev    next >
Encoding:
Text File  |  1990-03-27  |  249 b   |  21 lines
  1. ;;; -*- Scheme -*-
  2.  
  3. #|
  4. Description:
  5.  
  6. This code test internal lexpr invocation.
  7.  
  8. Usage:
  9.  
  10. (foo 1 2) -> (11 . 8)
  11.  
  12. |#
  13.  
  14. (declare (usual-integrations))
  15.  
  16. (define (foo x y)
  17.   (define (bar . all)
  18.     (apply + all))
  19.  
  20.   (cons (bar x y y y y y)
  21.     (bar y y y y)))